Исходный код

Option Explicit
Call GetLoginTime()

'==============================================================================
'Вывести время последнего входа в систему выбранного пользователя
'==============================================================================
Sub GetLoginTime()

        Dim SelUserDlg, FiltEvent, EventObj, seluser, _
                LastLoginTime, RetVal
         
        
        ' Открыть диалог выбора пользователя
        Set SelUserDlg = ThisApplication.Dialogs.SelectUserDlg
        RetVal = SelUserDlg.Show
        
        'Если пользователь отменил операцию или в диалоге выбрана группа, выйти из подпрограммы
        If (RetVal <> TRUE) Or (SelUserDlg.Users.Count=0) Then Exit Sub
        
        ' ПОлучить ссылку на первого выбранного пользователя
         Set seluser = SelUserDlg.Users(0)
        
         ' Настроить и включить фильтр событий
         Set FiltEvent = ThisApplication.Events
         FiltEvent.Filter.User = seluser  ' События связанные с выбранным пользователем
         FiltEvent.Filter.Class = tdmEventClassLogin  ' Событие - вход в систему
         FiltEvent.Filter.On = True '!!включить фильтр событий
        
         ' Поиск даты последнего входа в систему
         LastLoginTime = 0
         For Each EventObj In FiltEvent
              If EventObj.Time > LastLoginTime Then    LastLoginTime = EventObj.Time
         Next 
        
         'Сообщить дату
         Msgbox "Время последнего входа пользователя " & _
                     seluser.Description & " : " & LastLoginTime, vbInformation
End Sub
'==============================================================================